﻿Public Class Food
    '##################静态属性
    Dim x As Int32
    Dim y As Int32

    '##################动态属性
    '构造方法
    Sub New()
        x = -1
        y = -1
    End Sub
    '获取x
    Function getx() As Int32
        Return x
    End Function
    '获取y
    Function gety() As Int32
        Return y
    End Function
    '设置位置
    Sub setPos(x As Int32, y As Int32)
        Me.x = x
        Me.y = y
    End Sub
End Class
